 
Sub ǰԪк()
    MsgBox ActiveCell.Row, , "ǰԪкţ"
    MsgBox ActiveCell.EntireRow.Row, , "ǰԪкţ"
    
    MsgBox ActiveCell.Column, , "ǰԪкţ"
    MsgBox ActiveCell.EntireColumn.Column, , "ǰԪкţ"
    
    MsgBox Split(ActiveCell.EntireColumn.Address(0, 0), ":")(0), , "ȡǰԪĸб"
End Sub

'Cells(1, "C")C1Ԫ
 MsgBox Cells(1, "C").EntireRow.Row 
 MsgBox Cells(1, "C").EntireColumn.Column 'ĸCͨ бComboBoxȡ


Sub test() 'ָԪкźкţ磺B2
     
    MsgBox ActiveSheet.Range("B2").Row    ' 2
    MsgBox ActiveSheet.Range("B2").Column ' 2
End Sub


Sub жָек() 'ǰԪкźк
    MsgBox Cells(1, "D").Column  '4
End Sub

